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3 
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H 
9 
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1 4 
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19 



7081001} 



Hl3(!a!)2 



j»<.«COPYRir,HT 1969. nIsiTAL PQUIPMEI^T COPF.. MAYNARD, yASS,»<i» 

■ rwis SUB-PHOGRAM ASSE'-iBLECI '/ITH SYSTEM PARAMETER FILE - S.M(iC(V'<11) 

XLIST 

LIST 
TITLE PTYSRF - FULL lUPLEX PSEUQQ TELETYPE SERVICE ROUTINES 
SURTTL M. FREORikSEN/^CC T=; 26 DEC 68 VI7'a6 

xp vpty';f.H06» 

;PUT version NUMnER IM GLOB LISTIMG AND LOADfR STORAGE mjP 



E>JTRy PTySRF 
PTYSRF : 



(DUM"Y GLOBAL FOR FULL DUPLEX PTY 



SACCUMULATOR ASSIGNMENTS 

nDP=DEVDAT 
LINE=TAC1 



21 

22 
23 

2 4 

;'5 

26 
■?7 

28 
■,'9 
:iM 

:n 

3 2 

'<4 
(5 
3 6 
3 7 
!8 
19 



?00B10 
0l3[^t)13 
PI0PIZ14 



020000 
004000 
40005^0 
02PI000 



004000 
0020(^0 
001000 



CHPEC = TEN| 

Pins=13 
PDnB=14 

iFOLLOWING BITS. AND LINE AN" CHREC ASSIGNMENTS 
I MUST AGREE WITH THOSE IN SCNSRF 



RREAKB=20e00 
FCSBRK=4000 
TO1P=400000 
SYNC = Zfl000 



ISIGN OF TTYPTR IN TTY DDB 

IBREAK CHARACTER SEEN FROM SCNSER 



IPTY OEVICF nEPENDENT 10 STATUS niTS (RH DEVIOS) 



777777 777777 



IOPTW=4000 
tnPTRE = 2'"00 
MONMnD = l(100 

INTERNAL FTTTYSER 

FTTTYSER=-1 



lOUTPUT WAIT (OBJ. JOB HAS DONE INPUT) 
IPTY RESPONSE IS READY 
IPTY IS IN MONITOR MODE 



IFORCE MULT DEF GLOBAL IF WRONG APRSER 



PTYS^F 



FULL DUPLFX PSEUOO TELETYPt SERVICR ROUTINES 
X, FREDHIKSE" /RCC TS 06 OEC fe8 Vi'H* 
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41 
42 
4 3 
44 
45 
46 
47 
48 
49 

■=1 

t2 
•53 

S4 

■55 
S6 
^57 
= 8 
S9 
10 

^2 
ft 4 



Cei!?3t'2 
['0?'0:"3 
;'0P!0!'4 

(«0f0'»6 

Plane. 5-7 

(■0^/11 n 

P0P011 



605471 
.^00E '0 

P^ :• e 

(«000'/0 

000t;!'3 
:^00Kn0 

0000i'0 

is006;ir7 

fl0?!0f 7 

^00t-?0 



000000 ' 

200000 

013021 

000000 

00(501,4' 

003003 

00PI0t10 

0000C^0 

000000 

000000 

000000 



NTERNAL FTCHECK.FTMONp 

FN FTCHCCK*rT''ONP,< 

XTERNAL PTYnoR,PInSAV,PTySA^,PTYB^'D,PTY^Ml,PTYODSlPIOSAV,PDOS»V 

XTERNAL PTY=;AV,PTYSA2,PTYRET,PAr:SAV 

NTERIVAL PTYSA?! FTYRF0, ADSAV^' 



PTYDDB: 



FE FTCHFC 
PSEUOO '"0 
KEMAINIMG 
OUT OF LI 
IN 
7i 
SI 

? 

FX 

XW 

7 

? 

XH 

XW 



K+FTMOMPi < 

NSOlF TEVirL DATA BLOCK 

PTY DOB'S ARE GENFR«TFa 
NE AT 5UIL0 TIME 
TERN PTYQTB 

X3IT /PTY0/ 

P ^.lii^Kv' + STTYi^F*! 

P PTYDSP 

riVIN + OVOUT.3 



IPTY0 IS UNIT 1, PTYl IS UNIT 2, ETC, 



PROGit* 
PROG,0 

PTYDDS, .-H? 



ISIEF OF PTY 0D8 



PTVST 



65 

f.6 
^7 
•-S 
<9 
7 
71 
72 
73 
74 
75 
76 
77 
76 
79 
"0 
«1 
12 



FULl nuPLEX PSEUDO TELETYPE bFRvIHE ROUTIMES 
■«. FREHRIKSE^VRCC T^ 06 nt'C 68 V?i:.'. 



!"0!'01? 

'a^ai 3 

W031K14 
70!'015 
?00ai6 
''0P101 7 



1000P0 
0000?! 
7000P2 
000023 

000024 

000025 
7'a00?6 
000027 



263140 
2 6 314 

254070 
254i-,;-0 
2540:'0 
2540:^0 



1351P0 
2711;-0 
3360:'2 
263140 
2611'!0 

5503.'2 
260140 
262140 



000000 

000000 

00002i;' 
!;■ ?i 
0000 33' 
000120' 



000000 
000000 

000000 
000000 

000006 
000022' 

000000 

000006 



XACKf^,V36 19!10 4-JHN-69 PAT.E 15 



! I.MITILI'ATinN 

tpniK-T EPR1W. STOP JOE) 



'34 000030 13510 000020' 
'!5 '"00031 402002 000i}?0 
"6 000032 263140 000000 



INTERNAL PTyiSP 

EXTE^'^^AL OUT 

"OPj "DP, 
POP J PpP, 

ptyosp; jRst PTvqEL 
JRST OUT 

jr=;t ptyout 

JR^^T PTYr^i 



EXTERNAL PTYTAP.TCOHJLN.TTYTA'^.TTYKIL.PUNIT 

PTYREL! LDP LIN'E.PUNIT 

ADOI LINE.TCnNLM 
SKIP*.: TTyTAR(LINE) 
PQPJ POP, 

PUSH pip, one 
wrre dob, ttytaf3(line ) 
PUShj pop.ttykil 
POP "0°.^0!1 

LUP LI^iE.PUNlT 
SET^M PTyT4B(LINF) 
PDPj pnp, 



PTVSCF - FULl nu°LFx PSEUD1 IElC'^E S[ k . 



hiOLTI v[;r 
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^^7 
"8 
■19 

>;' 
■n 

-2 

93 

9b 

J7 
9f? 
79 

mi 

1.-2 

l-p 

1 "6 
1-7 
1"B 

I -9 
IIP 

II 1 
U2 
113 
114 
115 
116 
117 
118 
119 
l?k) 
191 
1?2 
1'3 
194 
125 
126 
127 



f"0?036 

^0C?0:57 
f"0CH40 
00?041 
!'0I''042 
P0!'043 
1^00044 
00f«045 

Ci0('046 
00R047 
("00050 



1351 '0 
5523.'2 
2711! 
'500ir2 

3326 '2 
2540C0 
260140 
260140 
654540 
254000 
202554 

2500^0 
2503?0 
263140 



P^Y iJl'TUuT 

jr V-,' TTYT4- FMn 

ir A TTY HA 'A t>L? 

I-TFNC IS SFT r: PTY 9T4TUS A":) OUTPUT IS TrRMlvATE 



EXISTS F.-fj TlJJS PTV, ONE IS HREATEn 
K I? •VAILARLF, IF NltviC- IS AVAILABLE, 



IF ^ ryv HilVICE DATA ;^LPCK IS AVAILABLE, f"h' AR ACTEf^S A9E 
HLA'-'.-- IN T-JE TTY P'PiJT giJFfER, JWE PTv OUTPUT BUFFFR [S 
■ -V8 mTET, I^PT^ IS -LFAPEI IN PTY STATUS, k'^C COMTRilL RFTIIRMS 
^D TMENCf" TO THE USE"?. 
..COilMTFRFD, riuTPIIT PROCEFDS IM THE 
jCIiNjG Tmt p;v 9UTPUT BUFFERS 



T" T«r lUTpi'T U'lO A 
ir Mu HrSPf,- SF I \, t:\ 
N0H"4L '"A'^hlO^ tjVAV 
UVTIL THEY f-RF FMPTV 



inPTHF !S SFT EVL9V TIME THP J09 RUMNING v THE PTY (OBJECT JOB) 

nOFS 4N "DuTP'jT" ilU'5. tQPT.-; IS SET kKEMEVER THE ORjETT JDK DOES 

A^i !\>PUT, TUE Q'-jFtT JO^ ThI'K -.-.OEP I^TQ I/O WAIT U^Tll THE JOP WITH 

TUE KTY ASSlr/T- (C^NT.7"L J"tf> "AS rO-'PLFTE^ IT'^ OUTp'iT UUO, 

MnKju;jn '-.nirATE? Ply IS IN 'OMITOR -^mE (!T= IIMKFD TTYnQR MA=; TPMQ^' 

SFT |^ I M .-,r K-;) 



PXTEP^iAL Tr:?-X^',TrvTiB,TPYTA=,PTYT48,SFTI0D 

FXTEO .4L 4Tvr;Fr,P;j\'' '.:3EniM3,PUTrHI 

FXTFP^■AL ^T|nyF,SPCt-^K,nnBSR'-,LIMTAB,CMC;TST,TlFCTR,I\'BFUL 



.''0?03Z ' PI YOilI ! 
<i f k! 7 1 ' 
00/'0?l ' 
0000('.0 

000025 ' 

000051' 

00^046 ' 

000000 

200000 

00(^053 ' 

000002 

000013 PTEXOh: 

000014 
0000^0 



C" 


i.r-iE.P'j'.^iT 


IIHR2>' 


ODR.PTYTASdlNE) 


A'JII 


LINE.TOO-'JL^J 


HLL 


LI^^F.LIMTA^lL IME) 


SKIPE 


PDQfi,TTYTA3(LlME) 


jhS r 


PTYOUl 


PUSmJ 


PQP.PIEXOH 


puSm,i 


piJP.nOPSRC 


TROi 


PI'lS, lOOERR 


JRST 


PTY0U2 


■■CVE^' 


PIOS.DEVIUStPDOn 1 


pxCm 


lOS.PIOS 


^XFr^ 


OD°,°Do:; 


"C°J 


POP, 



PTYSPF 



1?8 
1?9 
I7,ii 
1?1 
1:5 2 
1:^3 
1^4 
1'5 
1?6 
^7 
138 

m 
113 

144 
145 
146 

147 
148 
149 
15?) 
I'^l 
1?2 
153 
l'^4 
I'iS 
1^6 
l'^7 
1S8 
1^9 
16iil 
liSl 
l'i2 
163 
l',4 
1*5 
l'>5 
1^7 
1d8 
169 
172 
171 



FULL DUPLEX PSEUDO TELETYPE bERVICE ROUTINER 
^. FREORIKSEN/RCC TS 06 DEC 6B VC06 
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!»0Ci;51 
!»0I')C,52 

?i0("(»53 
ti:-0l?!ei54 
t>0l?a55 

^303^7 
!»0I!)060 

!?0l?'i)61 
C05106i 
C!00063 
?00afi4 
B00065 
:"0P'0f 6 
l^0C067 

(!)0«1070 

("0C071 

000072 
J100073 
000074 
000075 

000076 
000077 
0001(10 
000101 
000102 
000103 
000104 
000105 
000105 
000107 
00011 
000111 
000112 
000113 
00015 4 



?00554 
?60140 

201734 
200716 
221700 
'550654 
?70640 
201246 

13447'0 
3224^0 
260140 
254000 
302400 
306400 
2014'''0 
2010P0 
603040 

205000 
437006 
306400 
260140 

201246 
260140 
2540f0 
200046 
301040 
603000 
260140 
367700 
260140 
260140 
255070 
620000 
6610,'!0 
2020:'6 
263140 



000002 
000046' 

000010 

000001 

000005 

000010 

000254' 

000000 



PTVOUl ! 



^'OVE 

oySHj 



PTY0U2! MOVEI 
MOVE 
IMULI 
HRRH 
ftDH 
MOVEI 



000015 PTY0U3: ILDg 



000105' 

000000 

000076 ' 

000176 

000033 

000175 

000000 

024000 

020000 
000002 
000003 
000000 



00 





00 

00 

02 

00 

00 

00 

00 

00 

00 

00 

00 

00 



0060' 

0000 

0115' 

0000 

0010 

0000 

0000 

0061' 

0046 ' 

0000 

0000 

4000 

0004 

0002 

0000 



JUMPF 

PUSH,] 

JRST 

CAIE 

TAIN 

"^OVEl 

^lOVEI 

TL^'E 

"OVSI 
lORB 
TAIIM 
PUSMJ 

PTY0U4I HOVEI 
PUSHJ 
JRST 
MOVE 

rAiL 

TLME 

PUSHJ 

SDJG 

PUSHJ 

puShJ 

JFCL 

TR2 

TLO 

mOVEM 

POPJ 



PTY0U5! 
PTY0U6! 



PIOS.DFVIOS(PDDS) 
PDP.PTEXCH 

AC2i3'DEV0AQ(PDno) 
AC2,1( »C2) 
AC?, 5 

ACl,t:EVOAO(PnOB) 
AClfCXWD 700*PROr,,l] 
DAT.TTlBUFIone) 

CHREC>AC1 

CHREC.PTY0U5 

POP.SPCHFK 

PTY0U4 

rHREC,176 

rHREC.33 

r:HREC.175 

IOS,0 

tac,breakb*F'"Sbrk 

IOS.SYmc 

!OS,nEVIOS!0"B) 

CHREn,3 (CONTROL C? 

POP.CNCTST )SEE IF SECOMOi STOP JOB IF SO 



DAT,TTIBUF(DnB) 

PDP.PUTCHI 

PTVOUW 

TACTIFCTRCODB) 

TAC,10 

lOS.SYNC 

PDP,RECIM3 

AC2.PTY0U3 

PDP.PTEXCH 

PQPf ADVBFE 

lOS, lOPTW 
lOS, lOrsT 
IOS,riEVIDS(DnB) 
POP, 



IMAY HAVE SWITCHED TO TTOBUF 



)SEE IF BUFFER FILLING UP 
IWAKE JOB IF SO 

ICLORBERS DAT AND TAC 



30115 260140 00''000 PTYOUl'! PUSHJ PDP,INRFUL 



000116 
000117 



660540 
254000 



040000 

000106' 



TRO 
JRST 



PIOS.IOBKTL 
PTY0U6 



(TURN OFF SYNC. CHECK FOR 
I PANIC CONTROL fl . 

ICANT PUT BATCH IN lOW 

l-ABORT BUFFER AND RETURN TO BATCH 



PTYSRF - FULL DUPLEX PSEUDO TELETYPt SERVICE ROUTINES 

M, freorikse'vrcc t'; a6 dec 6a V5i06 
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172 
173 
171 
175 
176 
177 
17S 
179 
1B0 
1"! 
1F2 
1»3 
ia<) 

l^S 
1P6 
1«7 
1«8 
1R9 

190 
1'>1 

152 
193 
1<34 
195 
195 
197 
198 
199 
2'-'0 
2'71 
2!'2 
2:'3 

2:-"l 

2?5 
?76 
2='7 
2'8 
2/9 
213 
211 
212 
213 
21t 
215 
21 6 
21 7 
218 



EXTERNAL TCD\LN,TTYTAB,SETI0CiADVi3rF,A0RrRR,TTVPTH 
EXTERNAL BUFrLR.XiMTIfgT,PTYr,ET,TTYCt^R.TTO?UF 



70C11?a 
V:7s?\?\ 

C0C125 

^affipd 

CI0C127 
7?Pl3i! 
!'0f I'l 

?aci^2 

R0C1 <3 
!" f 1 ,■< 4 
P0P135 
P0C136 
r0!'137 
c>0Wl40 
?07141 

caziag 

70«143 

I'0?144 

!»00145 
C0B146 
'/■0f 147 

700150 
C00151 
(?0?'152 
0001?3 
00i'l'i4 
!'001'i5 
t"00156 
70!'1'^7 
!«0?ilft0 
!10'"161 

?0?162 
70711^3 

■?acil54 
700165 
'^flAd 
C0''167 



135240 
3326:'5 
2540"0 
A600''0 
2540,^0 



0554 
40r>0 
00."0 
30 4 6 
0140 
40:;'0 
11-5 
0140 
17^-0 
1674 
0640 
2076 

5070 

6076 

0140 
4 07 



260140 

331076 
25401^0 
13 6 4 7 
367770 
260140 
201766 
275657 
5426'^7 
260140 
2540;i0 
335014 
254070 

202076 
2 6 314 

20504 

4120-34 
3677^0 
254070 



000033' 

000000 

000125' 

407000 

000162' 

000002 
002000 

002000 
000 7 

000000 
000000 
3 3 5' 
000046 ' 

000000 

000007 
000255' 

000002 

400000 
000000 
000000 

000000 



000 
0142' 
0152' 
0015 
0145 ' 
0046 ' 
000 7 
7071 
0001 

0900 
0162' 
0146' 
0164' 



000072 
007t!00 



PTYINi 



PI Y I Ml! 
PTYIM4I 



PTYIN2! 



PTYIN5! 



PTYIN3! 



LDP nAT.PUMIT 

SKlpt^ PDnB,TPYTAB(DAT) 

JRST PTYI'jI 

TRC lOS.IOlMPM 

JR=;t PTYIN3 



ITTY O'^B ADD'E'^S 
! YES , THAT ' S ALL . 



MOVE 
TH^A 
TRC 
HRRi 

JRST 

^OVEI 

PUSH, I 

WOVEI 

"OVE! 

ADD 

MOVEM 

MOVSI 

IORm 

PUShJ 

SKIPA 

PUShJ 

SKIPL 

JRST 

lOPB 

SOJG 

PUSHJ 

MOVEI 

SUPI 

MRRm 

PUShj 

JRST 

SKIPr.E 

JRST 

MOVE>i 
POPJ 



pins,OFvioS(PDnB) 

lOS, lOPTRE 

IDS, lOPTRE 

TACDEVIADIDCB) 

PDPiBUFqLR 

ADRERP 

LlMEiTrO^JLN(nAT) 

PDP.PTrxCH 

aC2,ttychr 

«Cl.i»0EVIA0{ODnB) 
ACl.CXWD 7'^0,1] 
IOS,DEVIOS(DOB) 
lOS, TOIP 
IOS,TTYPTR(DPB) 
PDP.XMTINT 



IMARK TYPE-OUT ACTIVE 



400000 PTYIM6; MOVSI 
000160' AimPCAM 

000127' SDJG 

000162' JRST 



POP.pTVGET 

TTYPTRCDPB > 

OTYI m5 

CHREC.ACl 

AC2,PTYIN2 

PDP.PTEXCH 

AC3,«DEVIAD("DB) 

ACl.KACJ) 

ACl.KAC?) 

PDPf AOVBFF 

PTYIN3 

TTYPTR(P0D5) 

PTYIN6 

I0S,DEV10S<DnB) 
POP. 



TACTOIP iCLEAR ACTIVE PIT IN CASE STOPPED 

TAC, tTyptR(POOP ) 

AC2,pTy1K!4 ICCUMT, go OM IF ROO'H 

PTYIM3 INO ROO-I, STOP 



ISHDULD BE XMTI,M1*1 
ISTILL GOING? 
IMO. EMD OF STRING FROM TTY 



IWORO COUNT TO BATCH 



iSTILL MORE TO COME? 
lYES, SEE IF ROOM 



PTYS^F 



FULL DUPLEX PSEUOO TELETYPE SEKVITE ROUTINES 
^. FKEnR IKSE'/'^CC T? 06 DEC 68 v?t:6 
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219 
2715 
2'1 
222 
223 
2?'! 
275 
??6 
227 

2?a 

279 
2.3H 
231 

2^53 
2:?'l 
2-'5 
236 
237 



!"Z7l70 261148 



5113^171 
f(Jl»172 
f20l73 
(105)174 
^00175 
^00176 

?002P0 
PI0C2P1 
?002£12 
^0f?^^3 



20f 6P0 
?756;i0 
55»!614 
261140 

?e2i!i'^6 

201&40 
437i54 
?6£il40 
262140 
262140 
763140 



0f2 

0133' 

!?034' 

1^013 

(»202 

2<)00 

f)0?2 

02«'4' 

0013 
0014 
0000 



ilNTFHCEPT TTY OUTPUT AT UUO LF\/FL AND SYt«CH=!ON I ^£ 
iTTY OUTPUT '.'[TH PTy INPI'T 



INTERNAL PTypE 

EXTERNAL TCOV'L'I.PTYTAB.CLOf^K.CIPWTMl.wAKE 



314 PTYPF! 



DU^H 



PDP.PDoe 



MOVE POQti.LIvE 

SU°I PTDR.TCONLN 

MRR? pniJri,PTYTAP(PnDO) 

pu'^H pap.pios 

"OVE« lOS.OEVlOStOOB) 
^-OVEI PIOSiIOPTRE 
lOPK P!OS.DEVlnS(PDD") 
pu<:hj POP,pTwake 
POP POP.PIOS 
POP POP|P008 
POPJ POPi" 



238 

2''9 00?'204 261140 00Ci!02 

240 00^205 261140 000010 

241 000206 135040 000256' 

242 000207 5501!'0 000000 

243 000210 306100 000000 

244 000211 254000 000224' 

245 000212 554402 000000 

246 000213 302400 000000 

247 000214 364100 000210' 

248 000215 135400 000257' 

249 000216 312400 000001 

250 000217 364100 003210' 

251 000220 200402 000000 

252 000221 620400 007777 

253 000222 350000 000010 

254 000223 202402 000000 

255 000224 262140 000010 

256 000225 262140 000002 

257 000226 763140 000030 



PTWAKE ; 




REASON 



PQPJ POP, 



PTVS'JF - FULL OUPLEX PSEUDO TEtETYPt bFRVir-f ROUTIUCt: 
". FREHRIKSE'i/RCC T<; Zb nEr 68 v?;> 
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2'5 8 
? = 9 

2^2 
2^3 
264 
2^5 
?'i6 
2(S7 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
2. =12 
2"! 
SSS 
?'<3 
2fl4 
2<'b 
2''6 
2'17 



(>4)?227 
»0f ?3H 
CBC231 

f0C232 
!'0f233 
CI 1^ 2 3 4 

C0C235 
P10C236 

("00237 

C0P'240 
;"0^241 
t>27242 
?0P24 j 
Ciaf«244 

?00246 

P'0P'2'51 
C0(«2'52 



!rtnuT|wt=: TO SET VARIOUS BIT<; 

ICALUf-D rtxO" Sr\SL» l-ITrl TTY LINF NUMoF:) I'! LI^'E 



IMTE^'^AL FTY'-l,, PTMVJMr,PT"^y;? 



261140 ?'i(;?,;i3 

2<!154f! raii?i) 

254i^:H: i^JIC237' 

26H40 005!gi3 

561540 001b",'10 

2540''0 00i^277' 



PTMfjK/l;. 



PTl-llVM^ ; 



261140 Tud'J'tfii PTYDvj: 
201540 ?a4,;7ie 



261140 
20!'6''0 
2756 ''? 
56l"61 4 
322 6.?0 
6 2 3 5 4 
4 13 5 5 4 
437554 
602540 
26?il40 
262140 
762140 



■,'M PTYSFT: 



0.'J72' 
? 1 7 3 ' 

0?Z51 I 
77777 

(1 7 i' 71 2 
K 4 i- fl 
0?i2^4 ' 
^ i ■ 1 4 
0!'P13 



PTYSTl: 



f"00253 263140 (?0?i37i0 



PUSh 
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